<script>on mouseUpput cd fld mapname into tempvisual iris closego cd "World Map"repeat 10set hilite of btn temp to trueset hilite of btn temp to falseend repeatend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>482</left>
<top>144</top>
<right>509</right>
<bottom>170</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpglobal selectedCountryif selectedCountry = "" thenanswer "Please select a country first."exit mouseUpend ifgo cd selectedCountryif the result is not empty thenput "Sorry. No fact card for " & quote &¬selectedCountry & quote & "." into askMsganswer askMsgexit mouseUpend ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>482</left>
<top>187</top>
<right>509</right>
<bottom>213</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset cursor to watchglobal selectedCountryif selectedCountry = "" thenanswer "Please select a country first."exit mouseUpend ifput selectedCountry into tempgo cd selectedCountry of stack "Radio"if the result is not empty thenput "Sorry. No list cards for " & quote &¬temp & quote & "." into askMsganswer askMsgexit mouseUpend ifset cursor to browseend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>36</top>
<right>509</right>
<bottom>63</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpvisual iris closego cd "radio home" of stack "Radio"end mouseUp</script>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for BG 1 ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HANDLERS:-- clickOn, closeCard, openCardSTATS: 507 chars, 23 lines, 7/4/91, 8:43 AM∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on clickOn buttonNameglobal selectedCountrylock screenif selectedCountry ≠ "" thenset hilite of btn selectedCountry to falseend ifput buttonName into selectedCountryset hilite of btn selectedCountry to trueunlock screenend clickOnon openCardput the short name of this cd into cd fld MapNameend openCardon closeCardglobal selectedCountryif selectedCountry ≠ "" thenset hilite of btn selectedCountry to falseend ifput "" into selectedCountryend closeCard</script>